home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / toolbar / smtlbox / tlbox.bas < prev    next >
BASIC Source File  |  1994-10-16  |  4KB  |  79 lines
  1. '*********************************************************************
  2. '*                                                                   *
  3. '*         Module Name:TLBOX.BAS                                     *
  4. '*                                                                   *
  5. '*             Created:10/16/94      By: Jason R.Noble               *
  6. '*            Modified:              By:                             *
  7. '*                                                                   *
  8. '*            Comments: This is the best way to create mini title    *
  9. '*                      bars without a custom control or extensive   *
  10. '*                      API calls. Follow it through and you will    *
  11. '*                      see it happen.                               *
  12. '*********************************************************************
  13.  
  14. '*********************************************************************
  15.  
  16. ''*************** This section is for "ini" file access.'*************
  17. '
  18.    Declare Function WritePrivateProfileString Lib "Kernel" (ByVal lpApplicationName As String, lpKeyName As Any, lpString As Any, ByVal lplFileName As String) As Integer
  19.    Declare Function GetPrivateProfileInt Lib "Kernel" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal nDefault As Integer, ByVal lpFileName As String) As Integer
  20.    Declare Function GetWindowsDirectory Lib "Kernel" (ByVal lpBuffer As String, ByVal nSize As Integer) As Integer
  21. '
  22. '*********************************************************************
  23.  
  24. '************************Change the INI Details Here!*************
  25. '
  26.    Global Const INIFILENAME = "C:\WINDOWS\TlBox.INI"
  27.    Global Const SECTION = "Custom Title Bar"
  28. '
  29. '*****************************************************************
  30.  
  31. Global Const ACTIVE_TITLE_BAR = &H80000002      ' Active window caption.
  32. Global Const INACTIVE_TITLE_BAR = &H80000003    ' Inactive window caption.
  33. Global Const WINDOW_BACKGROUND = &H80000005     ' Window background.
  34. Global Const WINDOW_FRAME = &H80000006          ' Window frame.
  35. Global Const MENU_TEXT = &H80000007             ' Text in menus.
  36. Global Const WINDOW_TEXT = &H80000008           ' Text in windows.
  37. Global Const TITLE_BAR_TEXT = &H80000009        ' Text in caption, size box, scroll-bar arrow box..
  38. Global Const ACTIVE_BORDER = &H8000000A         ' Active window border.
  39. Global Const INACTIVE_BORDER = &H8000000B       ' Inactive window border.
  40. Global Const APPLICATION_WORKSPACE = &H8000000C ' Background color of multiple document interface (MDI) applications.
  41. Global Const HIGHLIGHT = &H8000000D             ' Items selected item in a control.
  42. Global Const HIGHLIGHT_TEXT = &H8000000E        ' Text of item selected in a control.
  43. Global Const BUTTON_FACE = &H8000000F           ' Face shading on command buttons.
  44. Global Const BUTTON_SHADOW = &H80000010         ' Edge shading on command buttons.
  45. Global Const GRAY_TEXT = &H80000011             ' Grayed (disabled) text.  This color is set to 0 if the current display driver does not support a solid gray color.
  46. Global Const BUTTON_TEXT = &H80000012           ' Text on push buttons.
  47.  
  48. Dim Focus As Integer
  49.  
  50.    Type POINTAPI         ' Used for GetCursor - gets mouse location
  51.       X As Integer       ' in screen coordinates.
  52.       Y As Integer
  53.    End Type
  54.  
  55.    Type ConvertPOINTAPI  ' Used by WM_SYSCOMMAND - converts mouse location.
  56.       xy As Long
  57.    End Type
  58.  
  59.  
  60. Declare Function Sendmessage Lib "User" (ByVal hWnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As Any) As Long
  61. Declare Sub GetCursorPos Lib "User" (lpPoint As POINTAPI)
  62.  
  63.  
  64.    Global Const WM_LBUTTONUP = &H202
  65.    Global Const WM_SYSCOMMAND = &H112
  66.    Global Const MOUSE_MOVE = &HF012
  67.  
  68.        Global Const KEY_sPACE = &H20
  69.  
  70. Sub Default_INI_File ()
  71. '[Custom Title Bar]
  72. Top = 0
  73. Left = 1095
  74. Height = 3855
  75. Width #4680, 4860
  76.  
  77. End Sub
  78.  
  79.